A starter template for leaflet tasks.
Libraries to load
library(rgdal)
library(leaflet)
library(htmltools)
Here’s a basic example
m <- leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addProviderTiles('Esri.WorldStreetMap',group='EsriStreet') %>%
addProviderTiles('Esri.WorldImagery',group='EsriImagery') %>%
addProviderTiles('CartoDB.Positron',group='CartoDB-1') %>%
addPolygons(data=indShp,group='India',stroke=T,weight = 2,fillOpacity = 0.1,
label=lapply(indShp@data$txtLbl, function(x) HTML(x)),
labelOptions = labelOptions(noHide = T)) %>%
addLayersControl(
baseGroups = c('CartoDB-1','EsriStreet','EsriImagery'),
overlayGroups = c('India'),
options = layersControlOptions(collapsed = T)
)
m # Print the map